home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
SI_SDK.ZIP
/
SYSINFO.GBL
< prev
next >
Wrap
Text File
|
1993-07-21
|
16KB
|
442 lines
'****************************************************************************'
'* *'
'* Global Declarations file for SYSINFO.DLL *'
'* *'
'****************************************************************************'
'Constants used for all nearly all function calls
Global Const SISDK_FAIL = -1
Global Const SISDK_SUCCESS = 0
'*--------------------------------------------------------------------------*'
'* SysInfo Version Defines *'
'*--------------------------------------------------------------------------*'
Declare Function GetSysInfoDLLMajorVersion Lib "SYSINFO.DLL" () As Integer
Declare Function GetSysInfoDLLMinorVersion Lib "SYSINFO.DLL" () As Integer
'* SysInfo Version return values *'
'* GetSysInfoDLLMajorVersion will return 1, 2, 3, etc...
'* GetSysInfoDLLMinorVersion will return 1, 2, ... , 10
'* Combining the two values together will give you a value of
'* X.XX.
'*
'* For example, if GetSysInfoDLLMajorVersion = 1 and
'* GetSysInfoDLLMajorVersion = 1, the combined version will give you
'* 1.01
'*--------------------------------------------------------------------------*'
'* Memory Size Defines *'
'*--------------------------------------------------------------------------*'
Declare Function GetMemorySizeKB Lib "SYSINFO.DLL" () As Long
'*--------------------------------------------------------------------------*'
'* Floppy Drive Info Defines *'
'*--------------------------------------------------------------------------*'
Declare Function GetFloppyDriveType Lib "SYSINFO.DLL" (ByVal nFloppyDriveNumber As Integer, nFloppyDriveType As Integer) As Integer
'* GetFloppyDriveType return values *'
Global Const FD_INVALIDPARAMETER = -3
Global Const FD_NOTFLOPPYDRIVE = -2
'Global Const SISDK_SUCCESS = 0
'* nFloppyDriveType return values *'
Global Const FD_360K = 1
Global Const FD_12MB = 2
Global Const FD_720K = 3
Global Const FD_144MB = 4
Global Const FD_288MB = 6
Declare Function GetNumFloppyDrives Lib "SYSINFO.DLL" () As Integer
'*--------------------------------------------------------------------------*'
'* Drive Info Defines *'
'*--------------------------------------------------------------------------*'
Declare Function GetTotalDiskSpaceKB Lib "SYSINFO.DLL" (ByVal nDriveNumber As Integer, lTotalDiskSpaceKB As Long) As Integer
Declare Function GetFreeDiskSpaceKB Lib "SYSINFO.DLL" (ByVal nDriveNumber As Integer, lFreeDiskSpaceKB As Long) As Integer
'* Drive Info return values *'
Global Const DS_INVALIDPARAMETER = -2
'Global Const SISDK_FAIL = -1
'Global Const SISDK_SUCCESS = 0
'*--------------------------------------------------------------------------*'
'* Disk Drive Type *'
'*--------------------------------------------------------------------------*'
Declare Function GetDiskDriveType Lib "SYSINFO" (ByVal nDriveNumber As Integer, nDiskDriveType As Integer) As Integer
'* GetDriveType return values *'
Global Const DT_INVALIDPARAMETER = -3
Global Const DT_NOTEXIST = -2
'Global Const SISDK_SUCCESS = 0
'* nDiskDriveType return codes *'
Global Const DT_FLOPPY = 2
Global Const DT_LOCALHD = 3
Global Const DT_NETWORKHD = 4
'*--------------------------------------------------------------------------*'
'* Hard DRIVE Parameters *'
'*--------------------------------------------------------------------------*'
Declare Function GetHDHeads Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDHeads As Integer) As Integer
Declare Function GetHDTracks Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDTracks As Integer) As Integer
Declare Function GetHDBytesPerSector Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDBytesPerSector As Integer) As Integer
Declare Function GetHDSectorsPerTrack Lib "SYSINFO" (ByVal nDriveNumber As Integer, nHDSectorsPerTrack As Integer) As Integer
'* Hard Drive return values *'
Global Const HD_INVALIDPARAMETER = -3
Global Const HD_NOTHARDDRIVE = -2
'Global Const SISDK_SUCCESS = 0
'*--------------------------------------------------------------------------*'
'* Model Info Defines *'
'*--------------------------------------------------------------------------*'
Declare Function GetModelType Lib "SYSINFO.DLL" () As Integer
'* GetModelType return values *'
Global Const ML_3COM = 1
Global Const ML_ACER = 2
Global Const ML_ALR = 3
Global Const ML_AST = 4
Global Const ML_ALTEC = 5
Global Const ML_ALTOS = 6
Global Const ML_AMSTRAD = 7
Global Const ML_APRICOT = 8
Global Const ML_ARCHE = 9
Global Const ML_ATandT = 10
Global Const ML_ATANDTSAFARINOTEBOOK = 11
Global Const ML_BLACKSHIP = 12
Global Const ML_BULL = 13
Global Const ML_COMMODORE = 14
Global Const ML_COMPUADD = 15
Global Const ML_COLUMBIA = 16
Global Const ML_COMPAQ = 17
Global Const ML_DATAGENERAL = 18
Global Const ML_DEC = 19
Global Const ML_DELL = 20
Global Const ML_DOLCH = 21
Global Const ML_EVEREX = 22
Global Const ML_EMERSON = 23
Global Const ML_EAGLE = 24
Global Const ML_EPSON = 25
Global Const ML_GATEWAY = 26
Global Const ML_GOLDSTAR = 27
Global Const ML_HAUPPAUGE = 28
Global Const ML_HP = 29
Global Const ML_HEADSTART = 31
Global Const ML_HYUNDIA = 32
Global Const ML_IBMPCXT286 = 33
Global Const ML_IBMPCAT = 34
Global Const ML_IBMPS1M2011 = 35
Global Const ML_IBMPS1M2121 = 36
Global Const ML_IBMPS2M25 = 37
Global Const ML_IBMPS2M30 = 38
Global Const ML_IBMPS2M35 = 39
Global Const ML_IBMPS2ML40 = 40
Global Const ML_IBMPS2M50 = 41
Global Const ML_IBMPS2M50Z = 42
Global Const ML_IBMPS2M55LS = 43
Global Const ML_IBMPS2M55SX = 44
Global Const ML_IBMPS2M57 = 45
Global Const ML_IBMPS2M60 = 46
Global Const ML_IBMPS2M65 = 47
Global Const ML_IBMPS2M70 = 48
Global Const ML_IBMPS2MP70 = 49
Global Const ML_IBMPS2MP75 = 50
Global Const ML_IBMPS2M80 = 51
Global Const ML_IBMPS2M90 = 52
Global Const ML_IBMPS2M95 = 53
Global Const ML_LEADINGEDGE = 55
Global Const ML_MSDOS386SLAPM = 56
Global Const ML_MSDOS = 57
Global Const ML_MEMOREX = 58
Global Const ML_MITAC = 59
Global Const ML_MITSUBISHI = 60
Global Const ML_MITSUBA = 61
Global Const ML_MATSUSHITA = 62
Global Const ML_MICROEXPRESS = 63
Global Const ML_MICROTELESIS = 64
Global Const ML_NORTHGATE = 65
Global Const ML_NECULTRALITE = 66
Global Const ML_NECPOWERMATE = 67
Global Const ML_NEC = 68
Global Const ML_NCR = 69
Global Const ML_OLIVETTI = 70
Global Const ML_PACKARDBELL = 71
Global Const ML_PANASONIC = 72
Global Const ML_PCDESIGNS = 73
Global Const ML_POLYWELL = 74
Global Const ML_PCDIRECT = 75
Global Const ML_PCSLIMITED = 76
Global Const ML_PCSOURCE = 77
Global Const ML_PCBRAND = 78
Global Const ML_PROTEUS = 79
Global Const ML_PHILIPS = 80
Global Const ML_SWAN = 81
Global Const ML_SIEMENS = 82
Global Const ML_SPERRY = 83
Global Const ML_SHARP = 84
Global Const ML_TANDEM = 85
Global Const ML_TI = 86
Global Const ML_TRISTAR = 87
Global Const ML_TWINHEAD = 88
Global Const ML_TANDY = 89
Global Const ML_TOSHIBA1000SE = 90
Global Const ML_TOSHIBA1000XE = 91
Global Const ML_TOSHIBA1000 = 92
Global Const ML_TOSHIBA1200XE = 93
Global Const ML_TOSHIBA1200 = 94
Global Const ML_TOSHIBA1600 = 95
Global Const ML_TOSHIBA3100SX = 96
Global Const ML_TOSHIBA3100 = 97
Global Const ML_TOSHIBA3200SX = 98
Global Const ML_TOSHIBA3200 = 99
Global Const ML_TOSHIBA3300SL = 100
Global Const ML_TOSHIBA5100 = 101
Global Const ML_TOSHIBA5200 = 102
Global Const ML_TOSHIBA5300 = 103
Global Const ML_TOSHIBA = 104
Global Const ML_TANDON = 105
Global Const ML_UNISYS = 106
Global Const ML_WANG = 107
Global Const ML_WYSE = 108
Global Const ML_XEROX = 109
Global Const